home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / SETLAYER.LSP < prev   
Text File  |  1989-10-13  |  365b  |  13 lines
  1.  
  2. ;         touch entity and the system goes to the layer the entity
  3. ;        resides on
  4. (defun c:SETLAYER (/ LAYER)
  5. (setq LAYER
  6.         (cdr
  7.                 (assoc 8
  8.                         (entget
  9.                                 (car
  10.                                         (entsel "Pick item for new layer "
  11. ))))))
  12. (command "LAYER" "SET" layer "")
  13. )